home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / gui / muirx_20.lha / MUIRexx2.0 / demos / dock.rexx < prev    next >
OS/2 REXX Batch file  |  1996-04-30  |  6KB  |  164 lines
  1. /*
  2.  
  3. Code:       dock.rexx
  4. Author:     Russell Leighton
  5. Revision:   11 Apr 1996
  6.  
  7. Comments:  This is an example usage of MUIRexx to create a dock
  8. application.  It has some very powerful features that are best discovered
  9. by inspection.  So have fun :-)
  10.  
  11. */
  12. options results
  13. options failat 20
  14. arg comm flag
  15.  
  16. /* Method TAG ID definitions */
  17.  
  18. Application_OpenConfigWindow = 0x804299ba /*    { ULONG MethodID; ULONG flags; }; */
  19.  
  20. /* TAG ID definitions */
  21.  
  22. Draggable = '0x80420b6e'
  23. Weight = '0x80421d1f'
  24. Window_Borderless = '0x80429b79'
  25. Window_DepthGadget = '0x80421923'
  26. Window_SizeGadget = '0x8042e33d'
  27. Window_DragBar = '0x8042045d'
  28. InnerBottom = '0x8042f2c0'
  29. InnerLeft = '0x804228f8'
  30. InnerRight = '0x804297ff'
  31. InnerTop = '0x80421eb6'
  32. Group_Spacing = '0x8042866d'
  33. Menuitem_Checked = '0x8042562a'
  34. Menuitem_Checkit = '0x80425ace'
  35. Menuitem_Title = '0x804218be'
  36. Selected = '0x8042654b'
  37.  
  38. /* TAG variable definitions */
  39.  
  40. TRUE = 1
  41. FALSE = 0
  42.  
  43. address MUIREXX
  44.  
  45. select
  46.     when comm = 'MAIN' then call main
  47.     when comm = 'NET' then call net
  48.     when comm = 'TERM' then call term
  49.     when comm = 'UTIL' then call util
  50.     otherwise call main
  51. end
  52.  
  53. exit
  54.  
  55. main:
  56.  
  57. address MUIREXX
  58.  
  59. item ID WDRG ATTRS Menuitem_Checked
  60. dflag = (result=1)
  61. if dflag then attributes = Window_DragBar TRUE
  62. else attributes = Window_DepthGadget FALSE Window_SizeGadget FALSE Window_DragBar FALSE Window_Borderless TRUE
  63.  
  64. window ID DOCK CLOSE
  65. window ID DOCK ATTRS attributes InnerBottom 0 InnerLeft 0 InnerRight 0 InnerTop 0
  66.     menu LABEL '"Project"'
  67.         item COMMAND '"request TITLE About GADGETS OK FILE muidir:about.txt"' PORT MUIREXX LABEL '"About"'
  68.         menu LABEL '"Settings"'
  69.             item COMMAND '"method 'Application_OpenConfigWindow'"' PORT MUIREXX LABEL '"MUI..."'
  70.             item ID WDRG COMMAND '"muirexx:demos/dock MAIN DRAG"' LABEL '"Drag"' ATTRS Menuitem_Checkit TRUE Menuitem_Checked dflag
  71.         endmenu
  72.         item ATTRS Menuitem_Title '-1'
  73.         item COMMAND '"quit"' PORT MUIREXX LABEL '"Quit"'
  74.     endmenu
  75.     group HORIZ ATTRS Group_Spacing 0
  76.         image ICON '"muirexx:demos/icons/help"' APP DROP COMMAND '"rexx:help %s"'
  77.         image ICON '"muirexx:demos/icons/multiview"' APP DROP COMMAND '"sys:utilities/multiview %s"' PORT '"COMMAND"'
  78.         image ICON '"muirexx:demos/icons/preview"' APP DROP COMMAND '"tex:c/preview %s"' PORT '"COMMAND"'
  79.         image ICON '"muirexx:demos/icons/edit"' APP DROP COMMAND '"ced %s"' PORT '"COMMAND"'
  80.         image ICON '"muirexx:demos/icons/music"' APP DROP COMMAND '"tools:music/Player"' PORT '"COMMAND"'
  81.         image ICON '"muirexx:demos/icons/paint"' COMMAND '"tools:graphics/TVPaintJr/TVJunior.picasso"' PORT '"COMMAND"'
  82.         image ICON '"muirexx:demos/icons/shell"' COMMAND '"newwsh CNC:0/593/560/240/New/close/alt#714,480,0,0 FROM S:WShell-Startup NAME WShell"' PORT '"COMMAND"'
  83.         image ICON '"muirexx:demos/icons/dirutil"' COMMAND '"muirexx:demos/muidir/muidir MUIREXX"'
  84.         image ICON '"muirexx:demos/icons/phone"' COMMAND '"template -hphonebook tools:utilities/template/phonebook"' PORT '"COMMAND"'
  85.         image ICON '"muirexx:demos/icons/news"' COMMAND '"UUCP:GRn-2.1/GRn"' PORT '"COMMAND"'
  86.         image ICON '"muirexx:demos/icons/mail"' COMMAND '"UUCP:c/Elm"' PORT '"COMMAND"'
  87.         switch ID BNET ICON '"muirexx:demos/icons/network"' COMMAND '"muirexx:demos/dock NET"'
  88.         switch ID BTRM ICON '"muirexx:demos/icons/term"' COMMAND '"muirexx:demos/dock TERM"'
  89.         switch ID BUTL ICON '"muirexx:demos/icons/web"' COMMAND '"muirexx:demos/dock UTIL"'
  90.         image ICON '"muirexx:demos/icons/apple"' COMMAND '"apps:ShapeShifter/ShapeShifter"' PORT '"COMMAND"'
  91.     endgroup
  92. endwindow
  93.  
  94. return
  95.  
  96. net:
  97.  
  98. address MUIREXX
  99.  
  100. item ID NDRG ATTRS Menuitem_Checked
  101. dflag = (result=1)
  102. if dflag then attributes = Window_DragBar TRUE
  103. else attributes = Window_DepthGadget FALSE Window_SizeGadget FALSE Window_DragBar FALSE
  104. window ID WNET CLOSE
  105. switch ID BNET ATTRS Selected
  106. if result then do
  107.     window ID WNET ATTRS attributes
  108.         menu LABEL '"Settings"'
  109.             item ID NDRG COMMAND '"muirexx:demos/dock NET"' LABEL '"Drag"' ATTRS Menuitem_Checkit TRUE Menuitem_Checked dflag
  110.         endmenu
  111.         button COMMAND '"UUCP:s/uupoll"' PORT '"COMMAND"' LABEL 'poll'
  112.         button COMMAND '"AMITCP:bin/startnet"' PORT '"COMMAND"' LABEL 'startnet'
  113.         button COMMAND '"AMITCP:bin/stopnet"' PORT '"COMMAND"' LABEL 'stopnet'
  114.     endwindow
  115. end
  116.  
  117. return
  118.  
  119. term:
  120.  
  121. address MUIREXX
  122.  
  123. item ID TDRG ATTRS Menuitem_Checked
  124. dflag = (result=1)
  125. if dflag then attributes = Window_DragBar TRUE
  126. else attributes = Window_DepthGadget FALSE Window_SizeGadget FALSE Window_DragBar FALSE
  127. window ID WTRM CLOSE
  128. switch ID BTRM ATTRS Selected
  129. if result then do
  130.     window ID WTRM ATTRS attributes
  131.         menu LABEL '"Settings"'
  132.             item ID TDRG COMMAND '"muirexx:demos/dock TERM DRAG"' LABEL '"Drag"' ATTRS Menuitem_Checkit TRUE Menuitem_Checked dflag
  133.         endmenu
  134.         button COMMAND '"AMITCP:bin/napsaterm cello"' PORT '"COMMAND"' LABEL 'cello'
  135.         button COMMAND '"AMITCP:bin/napsaterm soyuz"' PORT '"COMMAND"' LABEL 'soyuz'
  136.         button COMMAND '"AMITCP:bin/napsaterm sputnik"' PORT '"COMMAND"' LABEL 'sputnik'
  137.     endwindow
  138. end
  139.  
  140. return
  141.  
  142. util:
  143.  
  144. address MUIREXX
  145.  
  146. item ID UDRG ATTRS Menuitem_Checked
  147. dflag = (result=1)
  148. if dflag then attributes = Window_DragBar TRUE
  149. else attributes = Window_DepthGadget FALSE Window_SizeGadget FALSE Window_DragBar FALSE
  150. window ID WUTL CLOSE
  151. switch ID BUTL ATTRS Selected
  152. if result then do
  153.     window ID WUTL ATTRS attributes
  154.         menu LABEL '"Settings"'
  155.             item ID UDRG COMMAND '"muirexx:demos/dock UTIL DRAG"' LABEL '"Drag"' ATTRS Menuitem_Checkit TRUE Menuitem_Checked dflag
  156.         endmenu
  157.         button COMMAND '"tools:Network/AMosaic/AMosaic"' PORT '"COMMAND"' LABEL 'AMosaic'
  158.         button COMMAND '"tools:Network/CLChat/Client/CLChatGUI"' PORT '"COMMAND"' LABEL 'CLChat'
  159.         button COMMAND '"tools:Network/Grapevine/GV"' PORT '"COMMAND"' LABEL 'Grapevine'
  160.     endwindow
  161. end
  162.  
  163. return
  164.